home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Zoom 2
/
Zoom - Release 2 (1996)(Active Software)[!].iso
/
graphics
/
icon_related
/
newiconsv2
/
install
/
install_newicons
< prev
next >
Wrap
Text File
|
1996-02-20
|
8KB
|
304 lines
; NewIcons Installer Script
; $Ver: 38.3 (8-Jan-95)
; Written by Philip A. Vedovatti
; for Program Author Nicola Salmoria,
; with many thanks for his fine programming work.
(set @default-dest "SYS:C")
(set #bad-kick
(cat "\n\nSorry! You must have Workbench 2.0 or"
"higher to to use this package."))
(set #hello-message
(cat "\n\nThank you for trying NewIcons, the revolutionary"
"\nGraphical User Interface system for the Amiga."
"\nPlease read the documentation to get the most out"
"\nof this package. Nothing will be deleted from your"
"\nsystem with this installation program. Your old WB"
"\nicons will still be there, even though it won't look"
"\nlike it on your screen. If you don't understand any"
"\npart of the installation, click on the \"Help\" gadget"
"\nfound throughout the installation for more information."
"\n\nCLICK TO PROCEED"))
(set #install-which
(cat "\nWhich part(s) of the NewIcons System would"
"\nyou like to install onto your hard drive?\n"))
(set #install-library
(cat "\n\nInstalling NewIcon.library to LIBS:."
"\nThis is required for the icon installation."))
(set #install-library-help
(cat "\n\n This library is required to use NewIcons"
"\n and is required for the icon installation."))
(set #install-icons
(cat "\n\nInstalling the NewIcons files to your C:"
"\ndirectory and NewIcon images to your SYS: partition."
"\n\nYour old icons will NOT be removed."
"\n\nNOTE: make sure you have the standard Amiga 'list'"
"\ncommand in your command path before proceeding."))
(set #install-icons-help
(cat "\n\nThe new icon images will be embedded in"
"\nthe tool types of your existing .info"
"\nfiles. The tooltype lines will be"
"\ninvisible once NewIcons is running"
"\nso operation will be totally transparent"
"\nto the user."))
(set #install-newicons
(cat "\n\nCopying the NewIcons main files to C:"
"\nand newicon.library to Libs:"))
(set #install-newicons-help
(cat "\n\nThis section installs NewIcons, Injectbrush"
"\nand PatchOpenWB to your C: directory."
"\nAdditionally, the newicon.library will be"
"\ncopied to your Libs: drawer."))
(set #tools-dest
(cat "\nWhich drawer would you like the NewIcon"
"\nmanipulation utilities to be installed?\n"))
(set #startup-newicon
(cat "\n\nAdding a line to your S:User-Startup file"
"\nto launch NewIcons whenever the system"
"\nis booted up."))
(set #install-deficons
(cat "\n\nInstalling the DefIcons daemon to your"
"\nC: directory, and copying default icons"
"\nto your Envarc:sys directory."))
(set #install-deficons-help
(cat "\nThis sections installs the Deficons program"
"\nand copies the required def_icons to your"
"\nENVARC: directory."))
(set #move-olddefs-dir
(cat "The installer will move your old default"
"\nicons to another location for safe keeping."
"\nWhere would you like me to create a directory"
"\nto put them in?"))
(set #move-olddefs-help
(cat "\nThis section copies your old default icons to"
"\na safe place instead of overwriting them."
"\nShould you wish to deinstall Deficons, you"
"\nWill have them available to restore."))
(set #move-olddefs
(cat "Moving your old default icons to \n"
destdir))
(set #install-envarc
(cat "\nCopying the default icons and brainfile"
"\nto ENVARC: so DefIcons can use them.\n"))
(set #install-envarc-help
(cat "\n\nThis section install the icons that DefIcons"
"\nwill use to display icon images for files that"
"\ndon't have icons already attached to them."))
(set #startup-deficons
(cat "\n\nAdding a line to your S:user-Startup file"
"\nto launch DefIcons whenever the system"
"\nis booted up."))
(set #powb-message
(cat "\n\nIf you have installed NewIcons, you must "
"add a line to your S:Startup-Sequence:\n\n"
"C:PatchOpenWB\n"
"\nto fix a bug in the 3.x operating system!"
"\n\n Make sure to place the line after Setpatch"
"\nand before IPrefs."))
(set #exit-message
(cat "Please reboot your system to fully activate\n"
"the NewIcons and/or Deficons Systems."
"\n\n\nHave fun using NewIcons!"))
(set #docs-dest
(cat "Where would you like the NewIcons Documentation"
"\nGuide to be installed?"))
; ------------------------------
; Check Kickstart Version
; ------------------------------
(if (< (getversion "LIBS:version.library") (* 37 65536))
(abort #bad-kick)
)
(message #hello-message)
; ------------------------------
; What should I install?
; ------------------------------
(set InstallOpt
(askoptions (prompt #install-which)
(help @askoptions-help)
(choices "NewIcons" "DefIcons" "Documentation")
)
)
; ------------------------------
; Install NewIcon.library
; ------------------------------
(copylib
(source "/libs/newicon.library")
(dest "libs:")
(prompt #install-library)
(help #install-library-help)
(confirm)
)
;-------------------------------------------------------
;Install icon images, NewIcons, and icon support files
;-------------------------------------------------------
(if (BITAND InstallOpt 1)
((message #install-icons)
(execute "Install_Icons"
(help #install-icons-help)
)
(copylib
(prompt #install-newicons)
(source "/C/NewIcons")
(dest "c:")
(help #install-newicons-help)
)
(copylib
(source "/C/InjectBrush")
(dest "c:")
)
(copylib
(source "/C/PatchOpenWB")
(dest "c:")
)
(set destdir
(askdir
(prompt #tools-dest)
(help @askdir-help)
(default "Sys:Utilities")
)
)
(copyfiles
(source "/Utilities/CopyNewIcon")
(dest destdir)
(infos)
)
(copyfiles
(source "/Utilities/CreateDefaultIcon")
(dest destdir)
(infos)
)
(copyfiles
(source "/Utilities/KillNewIcon")
(dest destdir)
(infos)
)
(startup "NewIcons"
(prompt #startup-newicon)
(command "NewIcons")
(help @startup-help)
)
)
)
;------------------------------
;Install Deficons
;------------------------------
(if (BITAND InstallOpt 2)
((set destdir
(askdir
(prompt #move-olddefs-dir)
(help #move-olddefs-help)
(default "Sys:Storage")
)
)
(set destdir
(tackon destdir "Old_Def_icons")
)
(makedir destdir
)
(copyfiles
(prompt #move-olddefs)
(source "Envarc:sys")
(dest destdir)
(pattern "def#?")
(help #move-olddefs-help)
)
(copylib
(prompt #install-deficons)
(source "/C/DefIcons")
(dest "C:")
(help #install-deficons-help)
(confirm)
)
(copyfiles
(prompt #install-envarc)
(source "/envarc")
(dest "ENVARC:")
(all)
(infos)
(help #install-envarc-help)
)
(startup "DefIcons"
(prompt #startup-deficons)
(command "DefIcons")
(help @startup-help)
)
)
)
;------------------------------
;Install Documentation
;------------------------------
(if (BITAND InstallOpt 4)
((set destdir
(askdir
(prompt #docs-dest)
(help @askdir-help)
(default "Help:")
)
)
(copyfiles
(source "/NewIcons.guide")
(dest destdir)
(infos)
)
)
)
(message #powb-message)
(exit #exit-message)